* FILE NAME : CASHDPAT.PRG
*
KDPAT=PAT_FILCOD
TPPAT=PAT_CODTYP
DTPAT=PAT_CODDAT
COPAT=PAT_CODCRP
CRPAT=PAT_CODCRE
NMPAT=PAT_NAME
FNMPAT=PAT_F_NAME
MNMPAT=PAT_M_INIT
DENTAL=HL_DENT
HEALTH=HEALTHLINE
HLBEGIN=HL_START
HLDATE=HL_END
HLVOID=.F.
*MDSDAT=MDS_ENDATE
INSVAL=CMS_EDAT
CMS=PAT_CMS
PATJAPAN=PAT_JAPAN
PRGNM=AEA_PROGR
**
** 7/12/-99 - Dickson
M_JOBCORP=JOB_CORP
M_JOBTEL3=JOB_TEL3
M_JOBADD1=JOB_ADD1
**

IF PAT_CMS .AND. INSVAL>DATE()
   CMS=.T.
*   PRGNM='CMS                      '
** Remarked by dickson - on 11/2/99
**  no discount is given on Med procedure for CMS
**  if with this line in, it will disable the normal discount for AEA pgm
**   PRGNM='CMS            '
ELSE
   CMS=.F.
ENDIF

*MDSNBR=MDS_NBER
nore=recno()
perso=aeasos_per
famil=aeasos_fam
depper=fam_relper
IF AEAHEAL
   IF HEALTH .AND. (HLDATE<DATE()-15 .or. hlbegin>date())
      HLVOID=.T.
   ENDIF
ENDIF
ISEX=PAT_SEX
NATIO=PAT_NATIO
DOBPAT=PAT_DOB
set color to w+/b
@ 4,62 SAY KDPAT
@ 6,13 SAY NMPAT
@ 6,43 SAY FNMPAT
@ 6,74 SAY MNMPAT
@ 7,19 SAY DOBPAT
@ 7,43 SAY NATIO
@ 7,74 SAY ISEX

@ 5,3  SAY '**'+PRGNM
